home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / demovers / texel / skripte / datumneu.sic < prev   
Text File  |  1997-11-27  |  688b  |  36 lines
  1. // externes Scripter-Skript, das im übergebenen Sheet
  2. // (bzw. im obersten, wenn kein Sheet angegeben wurde)
  3. // alle Uhrzeitangaben neu parst; dadurch werden die
  4. // Rundungsfehler alter Texel-Versionen beseitigt;
  5. // tm 97-11-28
  6.  
  7. if (address("texel"))
  8. {
  9.     if (argc<1) datei=GetFront();
  10.     else
  11.         datei=argv[0];
  12.     
  13.     rmax=GetRows();
  14.     cmax=GetColumns();
  15.     
  16.     printf("Ändere %d Zeilen im Sheet \"%s\".\n",rmax,datei);
  17.     
  18.     for (r=0; r<rmax; r++)
  19.     {
  20.         printf("Zeile %d...",r+1);
  21.         
  22.         for(c=0; c<cmax; c++)
  23.         {
  24.             if (IsCellConst(r,c,datei))
  25.             {
  26.                 SetCell(r,c,GetCellFormula(r,c,datei),datei);
  27.             }
  28.         }
  29.         
  30.         printf("ok.\n");
  31.     }
  32.     
  33.     Recalc();
  34.     printf("Fertig!\n");
  35. }
  36.